20  HIMEM: 35070:ADRS = 35070: CALL ADRS: POKE 232,0: POKE 233,145: DEF  FN DG(H) = (H / 360 -  INT (H / 360)) * 360: DEF  FN D(H) =  FN DG( FN DG(H + 360)): DEF  FN RD(X) =  INT (X + .5): DEF  FN RN(X) =  INT ( RND (1) * X + 1):VA$ =  CHR$ (129):VN$ =  CHR$ (142):VI$ =  CHR$ (137):VP$ =  CHR$ (144):VY$ =  CHR$ (153):VV$ =  CHR$ (150):VW$ =  CHR$ (151):VK$ =  CHR$ (139):VL$ =  CHR$ (140)
 100  POKE 2072,85: POKE 2073,42: CALL 2074: PRINT VY$: VTAB (2): HTAB (10): PRINT VA$4VK$VN$;" STARSHIP COMMANDER "
 1000  GOSUB 39000: VTAB (5): PRINT "DO YOU WISH TO SAVE THIS GAME?":X5 = 0: GOSUB 20000: IF X = 1 THEN  GOSUB 10000
 1015  IF X5 = 1 THEN 1000
 1017  ONERR  GOTO 15011
 1020  GOSUB 39000: VTAB (7): PRINT  TAB( 4)"DO YOU WISH TO END THIS GAME?":EG = 0: GOSUB 20000: IF X = 1 THEN 1500
 1030  PRINT VA$0VK$VN$
 1040  PRINT  CHR$ (4)"BLOAD CHAIN,A520": CALL 520"INFO1": STOP 
 1500 EG = 1: PRINT VA$0VK$VN$: PRINT  CHR$ (4)"BLOAD CHAIN,A520": CALL 520"BYE"
 1600  STOP 
 10000  REM 
 10001  GOSUB 12000: GOSUB 39000: CALL 48251: VTAB (12): HTAB (13): PRINT "SAVING DATA": ONERR  GOTO 15000
 10010  VTAB (1): PRINT VA$0VN$VK$:Z$ =  CHR$ (4): PRINT Z$;"OPEN STARSHIP DATA": PRINT Z$;"WRITE STARSHIP DATA": FOR Z = 7790 TO 8030: PRINT  PEEK (Z): NEXT Z: FOR Z = 1 TO 15: PRINT EN(Z): PRINT D(Z): PRINT E(Z): PRINT RP(Z): PRINT RT(Z): PRINT AL(Z): NEXT Z
 10090  FOR Z = 1 TO 3: PRINT KX(Z): PRINT KY(Z): PRINT KW(Z): PRINT KH(Z): PRINT DK(Z): PRINT XS(Z): PRINT YS(Z): PRINT XA(Z): PRINT YR(Z): PRINT EV(Z): PRINT AX(Z): PRINT AY(Z): PRINT K2(Z): PRINT SD(Z): PRINT MS(Z): PRINT KT(Z): PRINT KC(Z): PRINT K(Z): FOR Z2 = 0 TO 7: PRINT KP(Z,Z2): PRINT MK(Z,Z2): NEXT Z2: NEXT Z: PRINT AX(0): PRINT AY(0)
 10170  FOR Z = 1 TO 4: FOR Z1 = 1 TO 3: PRINT CM(Z,Z1): PRINT CO(Z,Z1): PRINT CT(Z,Z1): PRINT PC(Z,Z1): NEXT Z1: PRINT AS(Z): PRINT DT(Z): PRINT LS(Z): NEXT Z: FOR Z = 0 TO 9: PRINT F(Z): NEXT Z
 10180  FOR Z = 1 TO 3: PRINT VH(Z): PRINT VR(Z): NEXT Z: PRINT CA: PRINT EX: PRINT EY
 10240  PRINT F1: PRINT CM(0,0): FOR Z = 1 TO 6: PRINT LP(Z): NEXT Z
 10250  PRINT MP: PRINT CB: PRINT B1: PRINT F9: PRINT F1: PRINT FF: PRINT F2: PRINT DA: PRINT BS: PRINT EV: PRINT AE: PRINT AB: PRINT BP: PRINT FH: PRINT LM: PRINT LP: PRINT EW: PRINT EH: PRINT EP: PRINT AL: PRINT AP: PRINT ED: PRINT AS: PRINT FS: PRINT FA: PRINT MS: PRINT MN: PRINT Z$"CLOSE STARSHIP DATA"
 10310  POKE 216,0: GOSUB 39000: CALL 48265: VTAB (10): PRINT "PLACE GAME DISKETTE BACK IN DISK": PRINT : PRINT "DRIVE.": POKE 216,0: GOSUB 43000: ONERR  GOTO 16000
 10360  PRINT VA$0VK$VN$: PRINT  CHR$ (4)"OPEN CREW,L12": PRINT  CHR$ (4)"READ CREW,R1": PRINT  CHR$ (4)"CLOSE CREW": POKE 216,0: RETURN 
 12000  GOSUB 39000: VTAB (7): PRINT "REPLACE GAME DISKETTE WITH YOUR DATA": PRINT : PRINT "DISKETTE. THE DATA DISKETTE SHOULD BE": PRINT : PRINT "A FORMATTED 16 SECTOR DISKETTE.": GOSUB 43000: RETURN 
 15000  REM 
 15010  POKE 216,0: ONERR  GOTO 15019: PRINT  CHR$ (4)"CLOSE STARSHIP DATA"
 15011  GOSUB 39000: PRINT VA$4VK$VI$
 15015  VTAB (18): HTAB (1): PRINT "PLACE GAME DISKETTE BACK IN DISK DRIVE";
 15019 : POKE 216,0: CALL 35070: VTAB (16): PRINT VA$4VK$VI$; TAB( 15): PRINT "DISK ERROR": POKE 2048,90: POKE 2049,255: CALL 2050: GOSUB 43000
 15030  POKE 216,0
 15050  GOTO 1000
 16000  POKE 216,0: ONERR  GOTO 16015: PRINT  CHR$ (4)"CLOSE CREW"
 16015  POKE 216,0: CALL 35070: VTAB (15): PRINT VA$VK$VI$; TAB( 15): PRINT "DISK  ERROR": POKE 2048,90: POKE 2049,255: CALL 2050: GOSUB 43000: GOTO 10310
 20000  REM 
 20010  VTAB (15): HTAB (18): PRINT VA$4VK$VI$;"YES": VTAB (17): HTAB (18): PRINT VA$4VK$VI$;"NO":Y = 17:Z(1) = 15:Z(2) = 17:Z = 2: GOSUB 41000: RETURN 
 38000  PRINT VY$: VTAB (22): HTAB (39): PRINT VW$;: VTAB (4): HTAB (2): PRINT VV$;: RETURN 
 39000  GOSUB 38000: PRINT VA$4VI$VK$;VP$;: RETURN 
 41000  REM 
 41006  PRINT VY$VA$1VK$VI$;:Z1$ = "J":Y3 =  - 1: FOR Z2 = 1 TO Z: IF Z(Z2) > 0 AND Y3 > 0 THEN X1 = Z2: GOTO 41030
 41016  IF Z(Z2) > 0 THEN Y3 = Z2
 41020  NEXT Z2:X1 = Y3: GOTO 41180
 41030 Z1 = 250 / Z: FOR Z2 = 1 TO Z: HTAB (Y + 1): VTAB ( ABS (Z(Z2))): PRINT "E";: NEXT Z2
 41079 X =  INT ( PDL (0) / Z1 + .5): IF X > Z THEN X = Z
 41080  IF X < 1 THEN X = 1
 41081  IF Z2 > 20 THEN  HTAB (Y): VTAB ( ABS (Z(X1))): PRINT " ";: POKE 2048,X1 * 5 + 50: POKE 2049,15: CALL 2050:Z2 = 0: HTAB (Y): PRINT "L";
 41082 Z2 = Z2 + 1: IF X < 1 THEN X = 1
 41085  IF  PEEK ( - 16287) > 127 THEN 41180
 41090  IF Z(X) < 1 THEN  GOTO 41079
 41100  IF X1 <  > X THEN  HTAB (Y): VTAB (Z(X1)): PRINT " ";
 41105 X1 = X: HTAB (Y): VTAB (Z(X)): PRINT "L";: GOTO 41079
 41180  IF X1 < 1 THEN 41185
 41183  HTAB (Y): VTAB (Z(X1)): PRINT " F";
 41185  GOSUB 45000:X = X1: RETURN 
 43000  VTAB (20): HTAB (9): PRINT VL$VA$1"PRESS BUTTON WHEN READY";
 43005 X2 = X2 + 1: IF X2 > 15 THEN  VTAB (20): HTAB (6): PRINT VA$1VK$"L";: HTAB (34): PRINT "M":X2 = 0: POKE 2048,100: POKE 2049,30: CALL 2050
 43010  IF X2 = 7 THEN  VTAB (20): HTAB (6): PRINT " ";: HTAB (34): PRINT " ";
 43020  IF  PEEK ( - 16287) < 128 THEN 43005
 43030  GOSUB 45000: PRINT VA$4VK$VI$;: RETURN 
 45000  POKE 2048,30: POKE 2049,30: CALL 2050: POKE 2048,80: POKE 2049,50: CALL 2050: RETURN